﻿Public Class BEcriterioAsignacion

#Region "Declaración de variables"

    Private codCriterio As Integer
    Private codTipoMuestra As Integer
    Private nombre As String
    Private descripcion As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodCriterio As Object, _
            ByVal pCodTipoMuestra As Object, _
            ByVal pNombre As Object, _
            ByVal pDescripcion As Object)

        Me._codCriterio = pCodCriterio
        Me._codTipoMuestra = pCodTipoMuestra
        Me._nombre = pNombre
        Me._descripcion = pDescripcion

    End Sub

    Public Property _codCriterio() As Integer
        Get
            Return Me.codCriterio
        End Get
        Set(ByVal value As Integer)
            Me.codCriterio = value
        End Set
    End Property

    Public Property _codTipoMuestra() As Integer
        Get
            Return Me.codTipoMuestra
        End Get
        Set(ByVal value As Integer)
            Me.codTipoMuestra = value
        End Set
    End Property

    Public Property _nombre() As String
        Get
            Return Me.nombre
        End Get
        Set(ByVal value As String)
            Me.nombre = value
        End Set
    End Property


    Public Property _descripcion() As String
        Get
            Return Me.descripcion
        End Get
        Set(ByVal value As String)
            Me.descripcion = value
        End Set
    End Property
End Class
